home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk68 / c2mod / files.def < prev    next >
Encoding:
Modula Definition  |  1995-03-19  |  2.2 KB  |  90 lines

  1. DEFINITION MODULE Files;
  2.  
  3. (*
  4.    Routines for finding information about files.
  5.  
  6.    Revision history:
  7.      0.00
  8.  
  9.  
  10.    Copyright 1987 by:
  11.      Dale W. Thompson, 14500 Dallas Pkwy. #2091, Dallas, TX 75240
  12.  
  13.      This module and/or its procedures may be freely used by anyone,
  14.      but please acknowledge its use in any copyright notice of a
  15.      publicly distributed program.  Thank you.
  16.  
  17.      Please forward any comments, problems, or suggestions to me
  18.      at the address given, or to my CompuServe ID 75115,734.
  19. *)
  20.  
  21. FROM DOSFiles   IMPORT FileLock;
  22. FROM Dates IMPORT DateString;
  23.  
  24. TYPE
  25.    FileTypes = ( Directory, File );
  26.    FileTypeSet = SET OF FileTypes;
  27.    FileInfo = RECORD
  28.                 Name    : ARRAY [0..107] OF CHAR;
  29.                 Date    : DateString;
  30.                 Comment : ARRAY [0..115] OF CHAR;
  31.                 Type    : FileTypes;
  32.                 Size    : LONGCARD;               (* File size in bytes *)
  33.               END;
  34.    FileInfoPtr = POINTER TO FileInfo;
  35.  
  36.  
  37. PROCEDURE FileExists( VAR name: ARRAY OF CHAR ): BOOLEAN;
  38. (*
  39.     Returns TRUE if file 'name' exists, otherwise returns FALSE
  40. *)
  41.  
  42.  
  43. PROCEDURE CopyFile( VAR fileIn, fileOut : ARRAY OF CHAR ): BOOLEAN;
  44. (*
  45.     Returns TRUE if file was copied, else returns FALSE
  46. *)
  47.  
  48.  
  49. PROCEDURE ReadDir( VAR Dir : ARRAY OF CHAR;
  50.                    VAR fia : ARRAY OF FileInfo ): CARDINAL;
  51. (*
  52.     Returns number of files in directory
  53. *)
  54.  
  55.  
  56. PROCEDURE IsDirectory( VAR file : ARRAY OF CHAR ) : BOOLEAN;
  57. (*
  58.     Returns TRUE of file is a directory, otherwize returns FALSE
  59. *)
  60.  
  61.  
  62. PROCEDURE GetFileInfo( VAR file : ARRAY OF CHAR;
  63.                        VAR fia  : FileInfo ): BOOLEAN;
  64. (*
  65.     Returns TRUE if FileInfo filled in, otherwise FALSE
  66. *)
  67.  
  68.  
  69. PROCEDURE GetCurrentDir( VAR Path : ARRAY OF CHAR ): BOOLEAN;
  70. (*
  71.    Path is filled with the current directory string.
  72.    Returns TRUE if ok, otherwise FALSE.
  73. *)
  74.  
  75. PROCEDURE GetSpec(     lock : FileLock;
  76.                    VAR Path : ARRAY OF CHAR ): BOOLEAN;
  77. (*
  78.    Given a file/directory lock, this procedure fills in Path
  79.    with the full file specification. Returns TRUE if ok, otherwise FALSE.
  80. *)
  81.  
  82.  
  83. PROCEDURE CurrentDirLock(): FileLock;
  84. (*
  85.    Returns a lock to the current directory.
  86. *)
  87.  
  88.  
  89. END (* DEFINITION MODULE *) Files.
  90.